﻿Imports System.Threading
Public Class frmConsultaTrabalhador


    Private trab As New _Trabalhador
    Private _idPesquisaTrabalhador As Integer

    Private DTVTrabalhador As DataView
    Private _listaTRabalhador As DataSet

    Public Property idPesquisaTrabalhador() As Integer
        Get
            Return _idPesquisaTrabalhador
        End Get
        Set(ByVal value As Integer)
            _idPesquisaTrabalhador = value
        End Set
    End Property

    Delegate Sub preenchedata_delegate()

    Private Sub preenchedata()

        DTVTrabalhador = trab.ConsultaTrabalhador.Tables("dataSet").DefaultView
        dgvTrabalhador.DataSource = DTVTrabalhador

    End Sub

    Private Sub DataSetAssincrono()

        'chama o método VinculaDataSet_DataGrid assincronamente na thread do formulário
        'Me.BeginInvoke(AddressOf preenchedata)

        'define a flag indicando que o preenchimento assincrono esta completo
        'ok = False
    End Sub

    Private Sub frmConsultaTrabalhador_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgvTrabalhador.AutoGenerateColumns = False
        'Dim thread As New Thread(AddressOf )
        'thread.Start()

        preenchedata()
        'threadCustomer.IsBackground = True
        'threadCustomer.Start()
        'CustomerThread()
    End Sub
    Private Sub dgvTrabalhador_CellMouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvTrabalhador.CellMouseDoubleClick

        idPesquisaTrabalhador = dgvTrabalhador.CurrentRow.Cells("O_ID_TRABALHADOR").Value
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()

    End Sub

    Private Sub txtNomeTrabalhador_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNomeTrabalhador.TextChanged
        Try
            DTVTrabalhador.RowFilter = "O_NM_COMPLETO LIKE '%" & txtNomeTrabalhador.Text & "%'"
            dgvTrabalhador.DataSource = DTVTrabalhador
        Catch ex As Exception

        End Try

    End Sub

    Private Sub txtNomeTrabalhador_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNomeTrabalhador.KeyDown
        If e.KeyCode = Keys.Enter And dgvTrabalhador.RowCount = 1 Then

            idPesquisaTrabalhador = dgvTrabalhador.CurrentRow.Cells("O_ID_TRABALHADOR").Value
            Me.DialogResult = System.Windows.Forms.DialogResult.OK
            Me.Close()

        End If


    End Sub

    Private Sub dgvTrabalhador_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dgvTrabalhador.KeyDown
        If e.KeyCode = Keys.Enter Then

            idPesquisaTrabalhador = dgvTrabalhador.CurrentRow.Cells("O_ID_TRABALHADOR").Value
            Me.DialogResult = System.Windows.Forms.DialogResult.OK
            Me.Close()

        End If

    End Sub
End Class